program ej;
const modo =0, linea = 10;
begin
  cpcMode(modo);
  pen(2);
  paper(1);
  locate(10,linea);
  writeChar( 'a' );
  pen(4);
  paper(3);
  locate ( 1 ,  linea );
  writeChar('c');
end.

